class.ap<-function(x) ##Atribuindo o nome "class.ap" a uma funo
{ ##Abrindo o script da funo
tab<-tapply(data$Period, FUN=summary) ## Gerando a soma de cada tipo de registro e atribuindo isso a um
##objeto chamado "tab"
sum(tab$'1') ##Calculando a soma de todos os registros
porcentagem<-matrix(tab$'1'*100)/sum(tab$'1') ## Gerando uma matriz das porcentagens de cada tipo de
##registro e atribuindo isso a um objeto chamado "porcentagem"
porcentagem ## Chamando o objeto "porcentagem"
n<-porcentagem[3,1] ## Atribuindo a porcentagem da 3 linha (registros noturnos) ao objeto "n"
c<-porcentagem[1,1] ## Atribuindo a porcentagem da 1 linha (registros crepusculares) ao objeto "c"
graph<-barplot(tab$'1') ## Gerando um grfico de barras com os registros e atribuindo isso ao objeto
##"graph"
if(n<10) ## Se o objeto "n" for menor que 10
  {
  cat("\n\n\n\t Diurnal\n\n\n\t") ## Vai gerar a mensagem "Diurnal" 
}
if(n>90) ## Se o objeto "n" for maior que 90
{
  cat("\n\n\n\t Nocturnal\n\n\n\t") ## Vai gerar a mensagem "Nocturnal"
 } 
if(10<n & n<30) ## Se o objeto "n" for maior que 10 e menor que 30
{
  cat("\n\n\n\t Mainly Diurnal\n\n\n\t") ## Vai gerar a mensagem "Mainly Diurnal"
} 
if(90>n & n>70) ## Se o objeto "n" for menor que 90 e maior que 70
{
  cat("\n\n\n\t Mainly Nocturnal\n\n\n\t") ## Vai gerar a mensagem "Mainly Nocturnal"
}
  
if(c==50) ## Se o objeto "c" for igual a 50
{
  cat("\n\n\n\t Crepuscular\n\n\n\t") ## Vai gerar a mensagem "Crepuscular"
}
if(n>30 & n<70) ## Se o objeto "n" for maior que 30 e menor que 70
{
  cat("\n\n\n\t Arritmic\n\n\n\t") ## Vai gerar a mensagem "Arritmic"
}
result<-c(tab,graph) ## Atribuindo os objetos "tab" e "graph" ao objeto "result"
return(result) ## Indicando que a funo deve retornar o objeto "result"
} ## Fechando o script da funo
